UUU UUU 
UUU UUU 
UUU UUU 
UU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


UUUUUUUUUUUUUUU 


a4 

=—aH4- 

=—4- 

=—4a4-4 

=H 

=a 
cCccoccocccoereem in 
DS et at pee Bet et pt ed bet Bet he 


mr 
ee 


et te Oe bt Ot bs pe 


At tt St HH St HH A HH 
eccceecece 


a ee) 
AAs at a tt 


*eF I LE®*1D**GETUIC 


YVVVYVYUVYVUUUUYU 
VYVVYVYYYUYUY 


— ot 
ee ee ee ee ee aD ee ee ae aed ae ae 
SP ed aa ed oe ae ae a aa a ca oD 
sae cat ant ant aot aa? aa ae ae ao on 
svat aaa atata? 
= 


UUUUUUUUUU 
UUUUUUUUUU 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 


a 
a 
— 
a 
4 
— 
a 
— 
= 
a 


4 
a) 
=) 
_) 
— 
= 
=) 
— 
at 
=) 


pete Moen LANGUAGE (BLI$$32) 
IDENT a venti ; 
BEGIN 


' 
i geeeeeeeeeeeeeeeeeeeeeeReeekeeeeeeeeeeedeeeeneeeeeeneeneeeneeeeeeneeeeeenee 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
‘® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
‘w ALL RIGHTS RESERVED. 


it 


foleolelolololoelelolololo) 


'# THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:. vannercenten’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJE 
i# AND SHOULD NOT BE CONSTRUED AS A COMM 
ie CORPORATION. 


'® DIGITAL ASSUMES NO RESPONS 
tt SOFTWARE ON EQUIPMENT WHIC 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 
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NOUS WN 0 ODNOAUE WN 90 ODNAUES WN OODNAUEWN (OOS NOUSWNR (ODO ONIOULWNH— 
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2 
5 
5 § PETTTITILILI LILLIE LILLIE LLL LLL iii iii itiiiiiiiiiii 
3 3 hed 
3 3 FACILITY: MOUNT Utility Structure Levels 1 & 2 
3 3 i ABSTRACT: 
3 Os : This routine returns the UIC of the running process. 
= 0039 1: 
: Boey ENVIRONMENT: 
4 004 i STARLET operating system, including privileged system services 
4 004 ! and internal exec routines. 
4 Bhd ! 
4 045 bee 
4 pse ! 
4 04 ' 
2 oS AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Oct-1977 17:54 
3 950 | MODIFIED BY: 
5 05¢ i V03-001 HHO041 Hai Huang 24-Jul-1984 
5 per Remove REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.P32'. 
é 055 i v02-000 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:38 
2 $28 f Previous revision history moved to MOUNT.REV 
‘® 


1984 01:15:05 VAX=11 Bliss-32 V4.0-742 Pa 1 

=138 93:13:93 DISKSVMSMASTER: CMOUNT. SRCIGETUIC.B32:1> 
! 
} 


AX=11 BLiss-32_V4.0-74 p 
DISKSVMSMASTERS MOUNT. SRCIGETUIC.832¢1°° (15 
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GLOBAL ROUTINE GET_UIC = 


lee 


' 
FUNCTIONAL DESCRIPTION: 

when SGETJPP becomes stable. 

CALLING SEQUENCE: 
GET_UIC () 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


UIC of this process 
SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL 
SCHSGL_CURPCB =: REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
! system address of process PCB 
! We have to do this garbage since the PCB is in system space and is not 
user readable. 
RETURN (.SCHS$GL_CURPCBCPCBSL_UIC)); 
END; ! end of routine GET_UIC 
TITLE se Tyle 
-IDENT \V04-000\ 
-EXTRN SCHS$GL_CURPCB 


This is a kluge routine to get the UIC of a process. It will disappear 


-PSECT S$CODES,NOWRT,2 


ENTRY Save nothing 
MOVL 


0000 00 GET UIC, ; 0593 
50 000000006 9F 00 00002 @#STHSGL_CURPCB, RO : 0686 


tu 1b-se Sep-1 5 -VAX#11 BLiss-32 v4.0-742 
$6.2450 Tee eRe Faia oF PNRM SER hGotr Secacerurc.as20%% « 
50 00BC «CO 00 00 MOVL 188(RO), RO , 
Be 8bb8E RET + 0638 
; Routine Size: 15 bytes, Routine Base: SCODE$ + 0000 


43 
Lexenes/CPU-Rin: 39493 
penery Used: 77 pages 
Compi ation Complete 


" 
; 109 639 
; 110 640 1 END 
3; TH 641 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 15 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
2 a een Ae eee “-- Symbols -<------ Pages Processing 
s File Total Loaded Percent Mapped Time 
;  _$255$DUA28:CSYSLIBILIB.L32;1 18619 9 0 1000 00:01.8 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,.OPTIMIZE)/LIS=LIS$:GETUIC/OBJ=OBJ$:GETUIC MSRC$:GETUIC/UPDATE=(ENH$:GETUIC) 
Size: 15 code + 0 data bytes 
Run Time : 3 
Elapsed Time: 0: 569-5 
Lines/CPU Min 
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